home *** CD-ROM | disk | FTP | other *** search
/ 3D Images / 3D Images.iso / programs / amiga / genesis / models / pieces.csg < prev    next >
Encoding:
Text File  |  1995-01-12  |  2.3 KB  |  67 lines
  1. # (c) 1989 Andrew McNamara, The Transalvanian Graphics Lab Inc.
  2.  
  3.       Example of CSG Operations & Multi-Level Re-usable Macro's
  4.  
  5.       This .csg file constructs a schematic chess-set using only basic
  6.       primitives.                                                           #
  7.  
  8.  
  9.  
  10. PAWN = CONE(23.19) DIFF PLANE(0,0,1)  AT (0,0,-7)
  11.                    DIFF PLANE(0,0,-1) UNION EMPTY;
  12. TOPBIT=CYLINDER(3) DIFF PLANE(0,0,-1) AT (0,0,4)
  13.                    DIFF PLANE(0,0,1) UNION EMPTY;
  14. ROOK = CYLINDER(2) UNION (TOPBIT) AT(0,0,7) DIFF
  15.        PLANE(0,0,-1) AT (0,0,11)
  16.        DIFF PLANE(0,0,1) UNION
  17.        (CYLINDER(3) DIFF PLANE(0,0,-1) AT(0,0,1) DIFF
  18.         PLANE(0,0,1)) UNION EMPTY;
  19.  
  20. BISHOP= CYLINDER(3) DIFF PLANE(0,0,-1) AT(0,0,8)
  21.                     DIFF PLANE(0,0,1) UNION
  22.         (SPHERE(3) DIFF PLANE(0,0,1)) AT(0,0,8) UNION EMPTY;
  23.  
  24. BOTTOMS=(CYLINDER(1) DIFF PLANE(0,0,1) DIFF PLANE(0,0,-1) AT(0,0,2))
  25.          AT(0,0,5)  UNION
  26.         (CONE(21.8) AT (0,0,2.5) DIFF PLANE(0,0,-1) DIFF PLANE(0,0,1) AT
  27.          (0,0,-5)) AT(0,0,5) UNION EMPTY;
  28. KING=(BOTTOMS) UNION
  29.      (CYLINDER(3) DIFF PLANE(0,0,1)  AT(0,0,7)
  30.                  DIFF PLANE(0,0,-1) AT(0,0,12)) UNION EMPTY;
  31. QUEEN=(BOTTOMS) UNION
  32.       (CONE(21.8) AT(0,0,-2.5) DIFF PLANE(0,0,1) DIFF PLANE(0,0,-1)
  33.        AT(0,0,5)) AT(0,0,7) UNION EMPTY;
  34.  
  35. KNIGHT=(CONE(37.96) DIFF PLANE(0,0,-1) DIFF PLANE(0,0,1) AT(0,0,-4)) AT
  36.        (0,0,10) UNION
  37.        (CONE(18.4) AT(0,0,3) DIFF PLANE(0,0,-1) DIFF
  38.         PLANE(0,0,1) AT(0,0,-6)) AT(0,0,6) UNION EMPTY;
  39.  
  40. ROW=   ((PAWN) XROT(-90) AT(3,0,3) UNION
  41.        (PAWN) XROT(-90) AT(10,0,3) UNION
  42.        (PAWN) XROT(-90) AT(17,0,3) UNION
  43.        (PAWN) XROT(-90) AT(24,0,3) UNION
  44.        (PAWN) XROT(-90) AT(31,0,3) UNION
  45.        (PAWN) XROT(-90) AT(38,0,3) UNION
  46.        (PAWN) XROT(-90) AT(45,0,3) UNION
  47.        (PAWN) XROT(-90) AT(52,0,3)) AT(0,7,0) UNION EMPTY ;
  48.  
  49. DRAW
  50.       (
  51.          (ROOK)    XROT(-90) AT(3,0,10)  UNION
  52.          (KNIGHT)  XROT(-90) AT(10,0,10) UNION
  53.          (BISHOP)  XROT(-90) AT(17,0,10) UNION
  54.          (QUEEN)   XROT(-90) AT(24,0,10) UNION
  55.          (KING)    XROT(-90) AT(31,0,10) UNION
  56.          (BISHOP)  XROT(-90) AT(38,0,10) UNION
  57.          (KNIGHT)  XROT(-90) AT(45,0,10) UNION
  58.          (ROOK)    XROT(-90) AT(52,0,10) UNION
  59.          (ROW)
  60.       ) SCALE(5) YROT(45) XROT(-30) AT(20,130,200);
  61.  
  62.  
  63.  
  64. .
  65.  
  66.  
  67.